perm filename SCM[NEW,LCS] blob
sn#145095 filedate 1975-02-12 generic text, type T, neo UTF8
1) SCMX.F4 vs. 2) SCMSS.F4[MSS,LCS] SRCCOM 02-12-75 16:41 PAGES 1,1
******** SCMX.F4 **** PAGE 1 LINE 3
1) 00300 COMMON R2,JA,QX(42) /SCM/V(78),I,LCNT,STAFF,JLIST(200),REND
1) 00350 C JLIST WILL SOMETIMES BE USED(WIPED OUT) FOR R(X,Y) OVERFLOW(>50 ITEMS.)
*** SCMSS.F4[MSS,LCS] *** PAGE 1 LINE 3
2) 00300 COMMON RJB,JA,QX(42) /SCM/V(78),I,LCNT,STAFF,JLIST(200),REND
2) 00350 C JLIST WILL SOMETIMES BE USED(WIPED OUT) FOR R(X,Y) OVERFLOW(>50 ITEMS.)
******** SCMX.F4 **** PAGE 1 LINE 77
1) 07300 C ADJUSTS NOTE STEMS, ETC.
*** SCMSS.F4[MSS,LCS] *** PAGE 1 LINE 77
2) 07000 CXX IZ=IZ+1
2) 07100 CXX R(1,IZ)=19.
2) 07200 CXX R(2,IZ)=STAFF
2) 07300 C ADJUSTS NOTE STEMS, ETC.
******** SCMX.F4 **** PAGE 1 LINE 186
1) 19720 XDBST=-1.
*** SCMSS.F4[MSS,LCS] *** PAGE 1 LINE 189
2) 19700 CC DBST=-1.
2) 19720 XDBST=-1.
******** SCMX.F4 **** PAGE 1 LINE 191
1) 19900 C FOR 'DOUBLE STOPS'
*** SCMSS.F4[MSS,LCS] *** PAGE 1 LINE 195
2) 19800 CC GO TO 236
2) 19900 C FOR 'DOUBLE STOPS'
******** SCMX.F4 **** PAGE 2 LINE 75
1) 16950 GO TO 67
*** SCMSS.F4[MSS,LCS] *** PAGE 2 LINE 75
2) 16800 CC IF(IREAD.EQ.0)CALL NUMB
2) 16900 CC GO TO 8006
2) 16950 GO TO 67